home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n03.arc / WHATEVER.EX2 < prev   
Text File  |  1989-01-18  |  520b  |  22 lines
  1. PROGRAM Whatever;
  2. USES Crt, TAccess,
  3.   {$IFDEF AddCust} AddCust , {$ENDIF}
  4.   {$IFDEF DelCust} DelCust , {$ENDIF}
  5.   {$IFDEF DispCust} DispCust , {$ENDIF}
  6.   Menu;
  7. VAR QuitFlag : Boolean;
  8. BEGIN
  9.   Initialize;
  10.   QuitFlag := False;
  11.   REPEAT
  12.     CASE GetMenuChoice OF
  13.       {$IFDEF AddCust} 1 : AddACustomer ; {$ENDIF}
  14.       {$IFDEF DelCust} 2 : DeleteACustomer ; {$ENDIF}
  15.       {$IFDEF DispCust} 3 : DisplayACustomer ; {$ENDIF}
  16.       4 : QuitFlag := True
  17.     ELSE
  18.     END
  19.   UNTIL QuitFlag;
  20.   Cleanup
  21. END.
  22.